home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGO.ARC / FOLLOW.POG < prev    next >
Encoding:
Text File  |  1985-11-20  |  2.0 KB  |  109 lines
  1.  
  2. ;A game where you try not to hit the followers orbiting your mouse.
  3.  
  4. int MouseRad
  5.  
  6.  
  7. ;The follower creature
  8.  
  9. creature follower
  10. {
  11. int mx, my;
  12.  
  13. mx = MouseX()    ;MouseX and MouseY are built in pogo funcions
  14. my = MouseY()
  15. ;The system maintains the variables
  16. ;cx cy cdx cdy independently for each creature.  They are set by the
  17. ;Parent during the Spawn call.  Also maintains CID, Cage, and Cnew.
  18. ;Cnew is 1 only the 1st time you're evolved.  Cage is # of times your
  19. ;evolved.  CID is your handle.  Kill(CID) is the Suicide call.
  20.         
  21. ;Calculations to accelerate towards mouse
  22. if (cx > mx && cx > -10)
  23.     {
  24.     cdx = cdx-1
  25.     }
  26. else
  27.     {
  28.     cdx = cdx + 1
  29.     if cdx > 10
  30.         cdx = 10
  31.     }
  32. if (cy > my && cy > -10)
  33.     {
  34.     cdy = cdy-1
  35.     }
  36. else
  37.     {
  38.     cdy = cdy + 1
  39.     if cdy > 10
  40.         cdy = 10
  41.     }
  42. ;Move ourselves
  43. cx = cx + cdx
  44. cy = cy + cdy
  45.  
  46. ;check for collision with mouse.
  47. if (Distance(mx,my,cx,cy) <= MouseRad + 2)
  48.         {
  49.         MouseRad = MouseRad+1
  50.         SetColor(0, 255, 0, 0)    ;flash background color red
  51.         }
  52.  
  53. ;Draw ourselves
  54. Circle(cx, cy, 2, cid+3)
  55. }
  56.  
  57. creature mouser
  58. {
  59. int lclick;
  60. int llclick;
  61. int x,y
  62.  
  63. ;Movement follows the mouse
  64. cx = MouseX()
  65. cy = MouseY()
  66. Disk(cx, cy, MouseRad, 15)
  67.  
  68. llclick = lclick
  69. }
  70.  
  71.  
  72.  
  73. int i
  74. int Ans
  75.  
  76. ToGraphics()    ;Switch to graphics mode
  77. PreSwap()        ;Set up double buffering
  78.  
  79. SetColor(15, 255, 100, 100)    ;Make mouse's color (15) bright red
  80.  
  81. Main:
  82. MouseRad = 8
  83.  
  84. Spawn(mouser, 160, 100, 0, 0)    ;Create the mouse creature
  85.  
  86.  
  87. i = 0
  88. loop
  89.     {
  90.     if (i&0x1f = 0)    ;every now and then make a new follower
  91.         Spawn(follower, 0, 0, 0, 0)
  92.     i = i+1
  93.     ClearScreen()
  94.     Evolve()
  95.     Swap()    ;Swap drawing and display screens
  96.     if (MouseRad > 200)    ;check for blowout
  97.         break
  98.     SetColor(0, 0, 0, 0)    ;Set background color to black in case flashed
  99.     }
  100. KillAll();
  101. ToText()
  102. PrintS("AH HAA HAA HAA BLOWOUT!!!!")
  103. PrintS("Score ---- ")
  104. Print(i)
  105. Prints("Want to play again?")
  106. Ans = WaitKey()
  107. if ((Ans <> 'n') && (Ans <> 'N'))
  108.     goto Main
  109.